home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00333.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  776 b   |  33 lines
  1. on exitFrame
  2.   global effectspath, sndcounter
  3.   set the keyUpScript to EMPTY
  4.   sound playFile 2, effectspath & "opengate.aif"
  5.   repeat with i = 13 to 30
  6.     sprite(i).visible = 1
  7.     puppetSprite(i, 0)
  8.   end repeat
  9.   if sprite(5).visible = 1 then
  10.     sprite(6).visible = 1
  11.     sprite(9).visible = 0
  12.     sprite(12).visible = 0
  13.   else
  14.     if sprite(8).visible = 1 then
  15.       sprite(6).visible = 0
  16.       sprite(9).visible = 1
  17.       sprite(12).visible = 0
  18.     else
  19.       if sprite(11).visible = 1 then
  20.         sprite(6).visible = 0
  21.         sprite(9).visible = 0
  22.         sprite(12).visible = 1
  23.       else
  24.         sprite(6).visible = 1
  25.         sprite(5).visible = 1
  26.         sprite(9).visible = 0
  27.         sprite(12).visible = 0
  28.       end if
  29.     end if
  30.   end if
  31.   sndcounter = 11
  32. end
  33.